home *** CD-ROM | disk | FTP | other *** search
- #!/usr/bin/perl
-
- print "Content-type: text/plain\n\n";
-
- print "The command line arguments for this script are:\n";
- print join(" ",@ARGV),"\n\n";
-
- print "The environmental variables available to the script include:\n\n";
-
- print "SERVER_SOFTWARE = ",$ENV{"SERVER_SOFTWARE"},"\n";
- print "SERVER_NAME = ",$ENV{"SERVER_NAME"},"\n";
- print "GATEWAY_INTERFACE = ",$ENV{"GATEWAY_INTERFACE"},"\n";
- print "SERVER_PROTOCOL = ",$ENV{"SERVER_PROTOCOL"},"\n";
- print "SERVER_PORT = ",$ENV{"SERVER_PORT"},"\n";
- print "REQUEST_METHOD = ",$ENV{"REQUEST_METHOD"},"\n";
- print "HTTP_ACCEPT = ",$ENV{"HTTP_ACCEPT"},"\n";
- print "PATH_INFO = " ,$ENV{"PATH_INFO"},"\n";
- print "PATH_TRANSLATED = " ,$ENV{"PATH_TRANSLATED"},"\n";
- print "SCRIPT_NAME = " ,$ENV{"SCRIPT_NAME"},"\n";
- print "QUERY_STRING = " ,$ENV{"QUERY_STRING"},"\n";
- print "REMOTE_HOST = ",$ENV{"REMOTE_HOST"},"\n";
- print "REMOTE_ADDR = ",$ENV{"REMOTE_ADDR"},"\n";
- print "REMOTE_USER = ",$ENV{"REMOTE_USER"},"\n";
- print "AUTH_TYPE = ",$ENV{"AUTH_TYPE"},"\n";
- print "CONTENT_TYPE = ",$ENV{"CONTENT_TYPE"},"\n";
- print "CONTENT_LENGTH = ",$ENV{"CONTENT_LENGTH"},"\n";
-
- 1;
-